home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / data / nifhand / ubbs.aut < prev    next >
Text File  |  1991-10-18  |  3KB  |  157 lines
  1. ECHO "\rこれよりＢＢＳへのアップロードを行います"
  2. IF ($1000=="QUICK" || $1000=="quick") || ($1000=="Q" || $1000=="q")
  3.  $1="Q"
  4. ENDIF
  5. IF ($1=="QUICK" || $1=="quick") || ($1=="Q" || $1=="q")
  6.  $1="Q"
  7.  IF ($60=="" || $61=="") || $62==""
  8.   ECHO "\r^G"
  9.   ECHO "UBBS.AUT：フルオートモードでは全てを設定しておく必要があります\r"
  10.   GOTO E
  11.  ENDIF
  12.  GOTO B2
  13. ENDIF
  14.  
  15. LABEL B1
  16. IF $60=="1"
  17.  $920="1. コンタクトボード"
  18. ELSEIF $60=="2"
  19.  $920="2. フリートーク"
  20. ELSEIF $60=="3"
  21.  $920="3. 売ります／あげます"
  22. ELSEIF $60=="4"
  23.  $920="4. 買います／譲ってください"
  24. ELSEIF $60=="5"
  25.  $920="5. 教えてください／教えます"
  26. ELSEIF $60=="6"
  27.  $920="6. スポーツ／健康"
  28. ELSEIF $60=="7"
  29.  $920="7. 家庭／教育"
  30. ELSEIF $60=="8"
  31.  $920="8. ふるさとボード"
  32. ELSE
  33.  $920="ボード番号が正しく指定されていません"
  34. ENDIF
  35.  
  36. ECHO "\r\r設定は以下のようになっています\r"
  37. ECHO "\r  1 ボード名      ：$920"
  38. ECHO "\r  2 送信ファイル名：$61"
  39. ECHO "\r  3 題  名        ：$62\r"
  40. ECHO "\r^G以上でよろしいですか？ (Y/N) (E:中止) (ﾘﾀｰﾝｷｰ不要)＞\r"
  41. LOOKKEY 60
  42.  CASE "Y"
  43.   GOTO B2
  44.  CASE "y"
  45.   GOTO B2
  46.  CASE "N"
  47.  CASE "n"
  48.  CASE "5"
  49.   $61=="DEL"
  50.   GOTO B2
  51.  CASE "E"
  52.   GOTO E
  53.  CASE "e"
  54.   GOTO E
  55.  CASE/TIMEOUT
  56.   GOTO E
  57. FREE
  58.  
  59. ECHO "\r^G訂正したいものを番号で選んで下さい (1～3) (ﾘﾀｰﾝｷｰ不要)\r"
  60. LOOKKEY 60
  61.  CASE "1"
  62.   ECHO "\r   1. コンタクトボード             2. フリートーク"
  63.   ECHO "\r   3. 売ります／あげます           4. 買います／譲ってください"
  64.   ECHO "\r   5. 教えてください／教えます     6. スポーツ／健康"
  65.   ECHO "\r   7. 家庭／教育                   8. ふるさとボード\r"
  66.   ECHO "\r^G 正しいボード番号を入力して下さい (+ﾘﾀｰﾝ)\r\r\r"
  67.   INPUT $60
  68.  CASE "2"
  69.   ECHO "\r正しい送信ファイル名を入力して下さい (+ﾘﾀｰﾝ)\r\r\r"
  70.   INPUT $61
  71.  CASE "3"
  72.   ECHO "\r正しい題名を入力して下さい (+ﾘﾀｰﾝ)\r\r\r"
  73.   INPUT $62
  74.  CASE/TIMEOUT
  75.   GOTO E
  76. FREE
  77. GOTO B1
  78.  
  79. LABEL B2
  80. SEND "BBS\r"
  81. WAIT "^J＞"
  82. SEND "$60\r",1
  83. LOOK
  84.  CASE "^J＞"
  85.   SEND "SET MENU OFF\r",1
  86.   WAIT "^JBBS>"
  87.  CASE "^JBBS>"
  88. FREE
  89.  
  90. IF $61=="DEL" || $61=="del"
  91.  SEND "5\r",1
  92.  IF $1=="Q"
  93.   LOOK
  94.    CASE "^JBBS>"
  95.    CASE "^J＞"
  96.     SEND "1\r",1
  97.     WAIT "^J："
  98.     SEND "1\r",1
  99.     WAIT "^JBBS>"
  100.   FREE
  101.   GOTO E
  102.  ENDIF
  103.  LOOK
  104.   CASE "^JBBS>"
  105.   CASE "^J＞"
  106.    ECHO "^G削除したいものを番号で選んで下さい (+ﾘﾀｰﾝ)＞"
  107.    LOOK 30
  108.     CASE "^J："
  109.     CASE/TIMEOUT
  110.      SEND "1\r"
  111.      WAIT "^J："
  112.    FREE
  113.    SEND "1\r",1
  114.    WAIT "^JBBS>"
  115.  FREE
  116.  GOTO E
  117. ENDIF
  118.  
  119. SEND "2\r",1
  120. WAIT "^J本文"
  121. WAIT "\r"
  122. CMD U "$61"
  123. WAIT "^J修正 (1:修正"
  124. WAIT "^J："
  125. SEND "2\r",1
  126. WAIT "^J題名"
  127. WAIT "^J："
  128. SEND "$62\r",1
  129. WAIT "^J確認"
  130. WAIT "^J："
  131. SEND "1\r",1
  132. WAIT "^J検索キーの選択"
  133. WAIT "^J："
  134. IF $1=="Q"
  135.  SEND "1\r",1
  136. ELSE
  137.  ECHO "^Gユーザが選んで下さい (+ﾘﾀｰﾝ)＞"
  138. ENDIF
  139.  
  140. LOOK 30
  141.  CASE "^J："
  142.  CASE/TIMEOUT
  143.   SEND "1\r"
  144.   WAIT "^J："
  145. FREE
  146.  
  147. SEND "1\r",1
  148. WAIT "^J登録"
  149. WAIT "^J："
  150. SEND "1\r",1
  151. WAIT "^JBBS>"
  152.  
  153. LABEL E
  154. $1=$60=$61=$62=""
  155. END
  156.  
  157.